home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 October / 1990-10.d64 / 64 shell (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  35 lines
  1. 100 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 110 print"[147]menu 64 demo":print"copyright 1990"
  3. 120 print"compute publications, inc.":print"all rights reserved."
  4. 140 if a=0 then a=1:ifpeek(51200)<>76then load"menu.ml",8,1
  5. 150 c$=chr$(13):a$=""+c$+c$+c$:q$=chr$(34)
  6. 160 h$="disk    pokes   printer metabas"
  7. 170 sys51200,h$,0
  8. 180 sys51203,0,"list","[147]list"+c$
  9. 190 t$="[147]l[207]"+q$+"$"+q$+",8"+c$
  10. 200 sys51203,0,"dir",t$
  11. 210 sys51203,0,"run","[147]run"+c$
  12. 220 sys51203,0,"load","load"+q$
  13. 230 sys51203,0,"save","save"+q$
  14. 240 sys51203,0,"open 1...","o[208]1,8,15,"+q$
  15. 250 sys51203,0,"close 1","close1"+c$
  16. 260 sys51203,1,"ptr speed ","p[207]53100,10"
  17. 270 sys51203,1,"ptr color","p[207]53105,7"
  18. 280 sys51203,1,"menu color 1","p[207]53103,11"
  19. 290 sys51203,1,"menu color 2","p[207]53104,12"
  20. 300 sys51203,1,"border","p[207]53106,0"
  21. 310 sys51203,1,"backgrnd","p[207]53107,15"
  22. 320 sys51203,1,"text","p[207]53108,0"
  23. 330 sys51203,1,"port","p[207]53101,0"
  24. 340 sys51203,1,"disable","[147]sys51212"+c$
  25. 350 sys51203,2,"open prt","o[208]4,4:c[205]4"
  26. 360 sys51203,2,"print#4:","print#4:"
  27. 370 sys51203,2,"close4","close4"+c$
  28. 380 sys51203,3,"cat","[147]cat"+c$
  29. 390 sys51203,3,"scratch","scratch"+q$
  30. 400 sys51209
  31. 410 print:print"pointer system installed":print"use port 2 joystick"
  32. 420 print"press fire to activate":print
  33. 430 print"deactivate with sys51212":print"  or run/stop restore"
  34. 440 print"sys51209 to turn back on"
  35.